home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 2
/
The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO
/
comm
/
hstlxslt.zip
/
LK-D.SLT
< prev
next >
Wrap
Text File
|
1992-02-27
|
3KB
|
78 lines
////////////////////////////////////////////////////////////////////////////////
// LK-D01.SLT //
// Telix Script to use HS/Link transfer protocol and generate //
// a more informative "Log File" //
// //
// Written for the "Public Domain" by Mr. Jiggs of Fotobeam/Brookside, Inc. //
// 260 Lexington St. //
// Waltham, Ma 02254-4613 //
// Voice: (617) 893-1600 //
// Fax: (617) 893-9951 //
// BBS: (617) 893-6812 //
// //
// Note: I use the "Slow-Handshake" switch !!! //
////////////////////////////////////////////////////////////////////////////////
main () {
str Stripe[81]="════════════════════════════════════════════════════════════════════════════════";
str BaudRate[10], PortNum[2], Today[16], Now[16], LogFile[40];
str Switches[255], BoardName[30], Dummy[1];
int OpenOkay;
if (getenv("DSZLOG", LogFile)) {
printsc("Using Standard Log File: ");
prints(LogFile);
}
else {
LogFile = "LINK.LOG";
printsc("Logging audit info to ");
prints(LogFile);
}
Switches=" -HS -E";
// Note: The "Slow-Handshake" switch !!! //
itos(get_baud(),BaudRate);
strcat(Switches, BaudRate);
strcat(Switches, " -P");
itos(get_port(),PortNum);
strcat(Switches, PortNum);
strcat(Switches, " ");
strcat(Switches,_ext_filespec);
if ( (OpenOkay = fopen(LogFile,"a")) == 0) {
return;
}
else {
date(curtime(),Today);
time(curtime(),Now);
fputc(10,OpenOkay);
fputs(Stripe,OpenOkay);
fputc(10,OpenOkay);
fputs("HS/Link with ",OpenOkay);
fputs(_entry_name,OpenOkay);
fputs(" begun on ",OpenOkay);
fputs(Today,OpenOkay);
fputs(" at ",OpenOkay);
fputs(Now,OpenOkay);
fputc(10,OpenOkay);
fputs(Stripe,OpenOkay);
fputc(10,OpenOkay);
fclose(OpenOkay);
}
run("HSLINK", Switches, 0);
if ( (OpenOkay = fopen(LogFile,"a")) == 0) {
return;
}
else {
fputs(Stripe,OpenOkay);
fputc(10,OpenOkay);
}
}